home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / dbase / fiasco.lha / Fiasco_1.2 / ARexx / print.rexx < prev    next >
OS/2 REXX Batch file  |  1995-12-09  |  752b  |  46 lines
  1. /* print.rexx
  2.  * Example script for printing from ARexx
  3.  * Copyright © 1995 Nils Bandener
  4.  * $VER: print.rexx 2.2 (9.12.95)
  5.  */
  6.  
  7. Options Results
  8. Address FIASCO
  9.  
  10. /* This is only an example!
  11.  * In the "real world", you will have to
  12.  * use the correct field IDs
  13.  */
  14.  
  15. F_GetFieldCont "Name"
  16. Name = Result
  17.  
  18. F_GetFieldCont "Vorname"
  19. Vorname = Result
  20.  
  21. F_GetFieldCont "Strasse"
  22. Strasse = Result
  23.  
  24. F_GetFieldCont "Hausnummer"
  25. Hausnr = Result
  26.  
  27. F_GetFieldCont "PLZ"
  28. PLZ = Result
  29.  
  30. F_GetFieldCont "Ort"
  31. Ort = Result
  32.  
  33. if open("f", "prt:", "write") then do
  34.  
  35.     call writeln("f", Vorname || " " || Name)
  36.  
  37.     call writeln("f", Strasse || " " || Hausnr)
  38.  
  39.     call writeln("f", PLZ || " " || Ort)
  40.  
  41.     call writeln("f", x2c(B))   /* Formfeed */
  42.  
  43.     call close("f")
  44.  
  45. end
  46.